home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / needac1a / ntro.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-25  |  23.9 KB  |  1,098 lines
  1. VERSION 5.00
  2. Begin VB.Form Intro2 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   6975
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   9660
  10.    ForeColor       =   &H00000000&
  11.    LinkTopic       =   "Form1"
  12.    MousePointer    =   2  'Cross
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   6975
  15.    ScaleWidth      =   9660
  16.    ShowInTaskbar   =   0   'False
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer6 
  19.       Enabled         =   0   'False
  20.       Interval        =   100
  21.       Left            =   0
  22.       Top             =   3480
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       BackColor       =   &H00FFFFFF&
  26.       Caption         =   "Errorr"
  27.       BeginProperty Font 
  28.          Name            =   "Arial"
  29.          Size            =   20.25
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   480
  37.       Left            =   4800
  38.       TabIndex        =   7
  39.       Top             =   4695
  40.       Visible         =   0   'False
  41.       Width           =   4335
  42.    End
  43.    Begin VB.Timer Timer5 
  44.       Enabled         =   0   'False
  45.       Interval        =   100
  46.       Left            =   0
  47.       Top             =   3120
  48.    End
  49.    Begin VB.Timer Timer4 
  50.       Enabled         =   0   'False
  51.       Interval        =   100
  52.       Left            =   0
  53.       Top             =   2760
  54.    End
  55.    Begin VB.Timer Timer3 
  56.       Enabled         =   0   'False
  57.       Interval        =   1000
  58.       Left            =   0
  59.       Top             =   2400
  60.    End
  61.    Begin VB.Timer Timer2 
  62.       Enabled         =   0   'False
  63.       Interval        =   600
  64.       Left            =   0
  65.       Top             =   2040
  66.    End
  67.    Begin VB.Timer Timer1 
  68.       Enabled         =   0   'False
  69.       Interval        =   1
  70.       Left            =   0
  71.       Top             =   1680
  72.    End
  73.    Begin VB.Label Label8 
  74.       BackStyle       =   0  'Transparent
  75.       BeginProperty Font 
  76.          Name            =   "Arial"
  77.          Size            =   48
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H00FF0000&
  85.       Height          =   1335
  86.       Left            =   3600
  87.       TabIndex        =   8
  88.       Top             =   3240
  89.       Visible         =   0   'False
  90.       Width           =   5295
  91.    End
  92.    Begin VB.Image Image3 
  93.       Height          =   2835
  94.       Left            =   2880
  95.       Top             =   1080
  96.       Visible         =   0   'False
  97.       Width           =   7110
  98.    End
  99.    Begin VB.Label Label7 
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "V
  102.       BeginProperty Font 
  103.          Name            =   "Arial"
  104.          Size            =   8.25
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00C00000&
  112.       Height          =   6255
  113.       Left            =   120
  114.       MousePointer    =   2  'Cross
  115.       TabIndex        =   6
  116.       Top             =   0
  117.       Visible         =   0   'False
  118.       Width           =   11895
  119.    End
  120.    Begin VB.Label Label6 
  121.       BackStyle       =   0  'Transparent
  122.       BeginProperty Font 
  123.          Name            =   "Arial"
  124.          Size            =   36
  125.          Charset         =   0
  126.          Weight          =   700
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       ForeColor       =   &H0000C000&
  132.       Height          =   975
  133.       Left            =   9360
  134.       TabIndex        =   5
  135.       Top             =   6960
  136.       Visible         =   0   'False
  137.       Width           =   2055
  138.    End
  139.    Begin VB.Label Label5 
  140.       BackColor       =   &H00000000&
  141.       Caption         =   "
  142.  Thug and Rev,  
  143. 1999                          
  144. r \/\/
  145.       BeginProperty Font 
  146.          Name            =   "Arial"
  147.          Size            =   36
  148.          Charset         =   0
  149.          Weight          =   700
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       ForeColor       =   &H000000C0&
  155.       Height          =   1575
  156.       Left            =   0
  157.       TabIndex        =   4
  158.       Top             =   0
  159.       Visible         =   0   'False
  160.       Width           =   9495
  161.    End
  162.    Begin VB.Label Label4 
  163.       BackColor       =   &H00000000&
  164.       BackStyle       =   0  'Transparent
  165.       Caption         =   "
  166.       BeginProperty Font 
  167.          Name            =   "Arial"
  168.          Size            =   48
  169.          Charset         =   0
  170.          Weight          =   700
  171.          Underline       =   0   'False
  172.          Italic          =   0   'False
  173.          Strikethrough   =   0   'False
  174.       EndProperty
  175.       ForeColor       =   &H000000C0&
  176.       Height          =   1095
  177.       Left            =   11280
  178.       TabIndex        =   3
  179.       Top             =   3840
  180.       Visible         =   0   'False
  181.       Width           =   3495
  182.    End
  183.    Begin VB.Label Label3 
  184.       BackColor       =   &H00000000&
  185.       BackStyle       =   0  'Transparent
  186.       BeginProperty Font 
  187.          Name            =   "Arial"
  188.          Size            =   48
  189.          Charset         =   0
  190.          Weight          =   700
  191.          Underline       =   0   'False
  192.          Italic          =   0   'False
  193.          Strikethrough   =   0   'False
  194.       EndProperty
  195.       ForeColor       =   &H00C00000&
  196.       Height          =   1095
  197.       Left            =   -1920
  198.       TabIndex        =   2
  199.       Top             =   4080
  200.       Visible         =   0   'False
  201.       Width           =   2655
  202.    End
  203.    Begin VB.Label Label2 
  204.       BackColor       =   &H00000000&
  205.       BeginProperty Font 
  206.          Name            =   "Arial"
  207.          Size            =   48
  208.          Charset         =   0
  209.          Weight          =   700
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       ForeColor       =   &H000000C0&
  215.       Height          =   1575
  216.       Left            =   2400
  217.       TabIndex        =   1
  218.       Top             =   4440
  219.       Visible         =   0   'False
  220.       Width           =   9255
  221.    End
  222.    Begin VB.Label Label1 
  223.       BackColor       =   &H00000000&
  224.       BeginProperty Font 
  225.          Name            =   "Arial"
  226.          Size            =   72
  227.          Charset         =   0
  228.          Weight          =   700
  229.          Underline       =   0   'False
  230.          Italic          =   0   'False
  231.          Strikethrough   =   0   'False
  232.       EndProperty
  233.       ForeColor       =   &H000000C0&
  234.       Height          =   1815
  235.       Left            =   1320
  236.       TabIndex        =   0
  237.       Top             =   2640
  238.       Visible         =   0   'False
  239.       Width           =   10935
  240.    End
  241.    Begin VB.Image Image2 
  242.       Height          =   8640
  243.       Left            =   1800
  244.       Top             =   -120
  245.       Visible         =   0   'False
  246.       Width           =   8640
  247.    End
  248.    Begin VB.Image Image1 
  249.       Height          =   8640
  250.       Left            =   1680
  251.       Top             =   -2280
  252.       Visible         =   0   'False
  253.       Width           =   8640
  254.    End
  255. Attribute VB_Name = "Intro2"
  256. Attribute VB_GlobalNameSpace = False
  257. Attribute VB_Creatable = False
  258. Attribute VB_PredeclaredId = True
  259. Attribute VB_Exposed = False
  260. Private Sub Command1_Click()
  261. Unload Me
  262. End Sub
  263. Private Sub Form_Load()
  264. Image1.Visible = True
  265. Image1.Visible = False
  266. Image2.Visible = True
  267. Image2.Visible = False
  268. Timer1.Enabled = True
  269. End Sub
  270. Private Sub Label7_Click()
  271. End Sub
  272. Private Sub Timer1_Timer()
  273. rrorr v3.0
  274. Label1.Visible = True
  275. Label1.Caption = "
  276. TimeOut 0.1
  277. Label1.Caption = "
  278. TimeOut 0.1
  279. Label1.Caption = "
  280. TimeOut 0.1
  281. Label1.Caption = "
  282. TimeOut 0.1
  283. Label1.Caption = "
  284. TimeOut 0.1
  285. Label1.Caption = "
  286. TimeOut 0.1
  287. Label1.Caption = "
  288. TimeOut 0.1
  289. Label1.Caption = "
  290. TimeOut 0.1
  291. Label1.Caption = "
  292. TimeOut 0.1
  293. Label1.Caption = "
  294. TimeOut 0.1
  295. Label1.Caption = " "
  296. Label1.ForeColor = &HC00000
  297. Label1.Caption = "
  298. TimeOut 0.1
  299. Label1.Caption = "
  300. TimeOut 0.1
  301. Label1.Caption = "
  302. TimeOut 0.1
  303. Label1.Caption = "
  304. TimeOut 0.1
  305. Label1.Caption = "
  306. TimeOut 0.1
  307. Label1.Caption = "
  308. TimeOut 0.1
  309. Label1.Caption = "
  310. TimeOut 0.1
  311. Label1.Caption = "
  312. TimeOut 0.1
  313. Label1.Caption = "
  314. TimeOut 0.1
  315. Label1.Caption = "
  316. Label1.ForeColor = &H0
  317. Label1.Caption = "
  318. TimeOut 0.1
  319. Timer1.Enabled = False
  320. Timer2.Enabled = True
  321. End Sub
  322. Private Sub Timer2_Timer()
  323. Label2.Visible = True
  324. Label2.Caption = " Thug and rev"
  325. TimeOut 0.2
  326. Label2.Caption = "  Thug and rev"
  327. TimeOut 0.2
  328. Label2.Caption = "    Thug and rev"
  329. TimeOut 0.2
  330. Label1.ForeColor = &HFFFF&
  331. Label2.Caption = "     Thug and rev"
  332. TimeOut 0.2
  333. Label2.Caption = "      Thug and rev"
  334. TimeOut 0.2
  335. Label2.Caption = "       Thug and rev"
  336. TimeOut 0.2
  337. Label1.ForeColor = &HFF0000
  338. Label2.Caption = "        Thug and rev"
  339. TimeOut 0.2
  340. Label2.Caption = "        Thug and rev"
  341. TimeOut 0.2
  342. Label2.Caption = "        Thug and rev"
  343. TimeOut 0.2
  344. Label1.ForeColor = &HFFFF&
  345. Label2.Caption = "       Thug and rev"
  346. TimeOut 0.2
  347. Label2.Caption = "      Thug and rev"
  348. TimeOut 0.2
  349. Label2.Caption = "     Thug and rev"
  350. TimeOut 0.1
  351. Label1.ForeColor = &HFF0000
  352. Label2.Caption = "    Thug and rev"
  353. TimeOut 0.1
  354. Label2.Caption = "   Thug and rev"
  355. TimeOut 0.1
  356. Label2.Caption = "  Thug and rev"
  357. TimeOut 0.1
  358. Label1.ForeColor = &HFFFF&
  359. Label2.Caption = " Thug and rev"
  360. TimeOut 0.1
  361. Label2.Caption = "  Thug and rev"
  362. TimeOut 0.1
  363. Label2.Caption = "   Thug and rev"
  364. TimeOut 0.1
  365. Label1.ForeColor = &HFF0000
  366. Label2.Caption = "    Thug and rev"
  367. TimeOut 0.1
  368. Label2.Caption = "     Thug and rev"
  369. TimeOut 0.1
  370. Label2.Caption = "      Thug and rev"
  371. TimeOut 0.1
  372. Label1.ForeColor = &HFFFF&
  373. Label2.Caption = "       Thug and rev"
  374. TimeOut 0.1
  375. Label2.Caption = "        Thug and rev"
  376. TimeOut 0.1
  377. Label2.Caption = "        Thug and rev"
  378. TimeOut 0.1
  379. Label1.ForeColor = &HFF0000
  380. Label2.Caption = "       Thug and rev"
  381. TimeOut 0.1
  382. Label2.Caption = "      Thug and rev"
  383. TimeOut 0.1
  384. Label2.Caption = "     Thug and rev"
  385. TimeOut 0.1
  386. Label1.ForeColor = &HFFFF&
  387. Label2.Caption = "    Thug and rev"
  388. TimeOut 0.1
  389. Label2.Caption = "   Thug and rev"
  390. TimeOut 0.1
  391. Label2.Caption = "  Thug and rev"
  392. TimeOut 0.1
  393. Label1.ForeColor = &HFF0000
  394. Label2.Caption = " Thug and rev"
  395. TimeOut 0.1
  396. Label2.Caption = "  Thug and rev"
  397. TimeOut 0.1
  398. Label2.Caption = "   Thug and rev"
  399. TimeOut 0.1
  400. Label1.ForeColor = &HFFFF&
  401. Label2.Caption = "    Thug and rev"
  402. TimeOut 0.1
  403. Label2.Caption = "     Thug and rev"
  404. TimeOut 0.1
  405. Label2.Caption = "      Thug and rev"
  406. TimeOut 0.1
  407. Label1.ForeColor = &HFF0000
  408. Label2.Caption = "       Thug and rev"
  409. TimeOut 0.1
  410. Label2.Caption = "        Thug and rev"
  411. TimeOut 0.1
  412. Label2.Caption = "        Thug and rev"
  413. TimeOut 0.1
  414. Label1.ForeColor = &HFFFF&
  415. Label2.Caption = "       Thug and rev"
  416. TimeOut 0.1
  417. Label2.Caption = "      Thug and rev"
  418. TimeOut 0.2
  419. Label2.Caption = "     Thug and rev"
  420. TimeOut 0.2
  421. Label1.ForeColor = &HFF0000
  422. Timer2.Enabled = False
  423. Label1.Visible = False
  424. Label2.Visible = False
  425. Timer3.Enabled = True
  426. End Sub
  427. Private Sub Timer3_Timer()
  428. '-1920
  429. '6120
  430. '11220
  431. '3920
  432. '3720
  433. Label3.Visible = True
  434. Label4.Visible = True
  435. Label3.Left = -1820
  436. Label4.Left = 11220
  437. TimeOut 0.01
  438. Label3.Left = -1720
  439. Label4.Left = 11120
  440. TimeOut 0.01
  441. Label3.Left = -1620
  442. Label4.Left = 11020
  443. TimeOut 0.01
  444. Label3.Left = -1520
  445. Label4.Left = 10920
  446. TimeOut 0.01
  447. Label3.Left = -1420
  448. Label4.Left = 10820
  449. TimeOut 0.01
  450. Label3.Left = -1320
  451. Label4.Left = 10720
  452. TimeOut 0.01
  453. Label3.Left = -1220
  454. Label4.Left = 10720
  455. TimeOut 0.01
  456. Label3.Left = -1120
  457. Label4.Left = 10620
  458. TimeOut 0.01
  459. Label3.Left = -1020
  460. Label4.Left = 10520
  461. TimeOut 0.01
  462. Label3.Left = -920
  463. Label4.Left = 10420
  464. TimeOut 0.01
  465. Label3.Left = -820
  466. Label4.Left = 10320
  467. TimeOut 0.01
  468. Label3.Left = -720
  469. Label4.Left = 10320
  470. TimeOut 0.01
  471. Label3.Left = -620
  472. Label4.Left = 10220
  473. TimeOut 0.01
  474. Label3.Left = -520
  475. Label4.Left = 10120
  476. TimeOut 0.01
  477. Label3.Left = -420
  478. Label4.Left = 10020
  479. TimeOut 0.01
  480. Label3.Left = -320
  481. Label4.Left = 9920
  482. TimeOut 0.01
  483. Label3.Left = -220
  484. Label4.Left = 9820
  485. TimeOut 0.01
  486. Label3.Left = -120
  487. Label4.Left = 9720
  488. TimeOut 0.01
  489. Label3.Left = 20
  490. Label4.Left = 9620
  491. TimeOut 0.01
  492. Label3.Left = 120
  493. Label4.Left = 9520
  494. TimeOut 0.01
  495. Label3.Left = 220
  496. Label4.Left = 9420
  497. TimeOut 0.01
  498. Label3.Left = 320
  499. Label4.Left = 9320
  500. TimeOut 0.01
  501. Label3.Left = 420
  502. Label4.Left = 9220
  503. TimeOut 0.01
  504. Label3.Left = 520
  505. Label4.Left = 9120
  506. TimeOut 0.01
  507. Label3.Left = 620
  508. Label4.Left = 9020
  509. TimeOut 0.01
  510. Label3.Left = 720
  511. Label4.Left = 8920
  512. TimeOut 0.01
  513. Label3.Left = 820
  514. Label4.Left = 8820
  515. TimeOut 0.01
  516. Label3.Left = 920
  517. Label4.Left = 8720
  518. TimeOut 0.01
  519. Label3.Left = 1020
  520. Label4.Left = 8620
  521. TimeOut 0.01
  522. Label3.Left = 1120
  523. Label4.Left = 8520
  524. TimeOut 0.01
  525. Label3.Left = 1220
  526. Label4.Left = 8420
  527. TimeOut 0.01
  528. Label3.Left = 1320
  529. Label4.Left = 8320
  530. TimeOut 0.01
  531. Label3.Left = 1420
  532. Label4.Left = 8220
  533. TimeOut 0.01
  534. Label3.Left = 1520
  535. Label4.Left = 8120
  536. TimeOut 0.01
  537. Label3.Left = 1620
  538. Label4.Left = 7920
  539. TimeOut 0.01
  540. Label3.Left = 1720
  541. Label4.Left = 7820
  542. TimeOut 0.01
  543. Label3.Left = 1820
  544. Label4.Left = 7720
  545. TimeOut 0.01
  546. Label3.Left = 1920
  547. Label4.Left = 7620
  548. TimeOut 0.01
  549. Label3.Left = 2020
  550. Label4.Left = 7520
  551. TimeOut 0.01
  552. Label3.Left = 2120
  553. Label4.Left = 7420
  554. TimeOut 0.01
  555. Label3.Left = 2220
  556. Label4.Left = 7320
  557. TimeOut 0.01
  558. Label3.Left = 2320
  559. Label4.Left = 7220
  560. TimeOut 0.01
  561. Label3.Left = 2420
  562. Label4.Left = 7120
  563. TimeOut 0.01
  564. Label3.Left = 2520
  565. Label4.Left = 7020
  566. TimeOut 0.01
  567. Label3.Left = 2620
  568. Label4.Left = 6920
  569. TimeOut 0.01
  570. Label3.Left = 2720
  571. Label4.Left = 6820
  572. TimeOut 0.01
  573. Label3.Left = 2820
  574. Label4.Left = 6720
  575. TimeOut 0.01
  576. Label3.Left = 2920
  577. Label4.Left = 6620
  578. TimeOut 0.01
  579. Label3.Left = 3020
  580. Label4.Left = 6520
  581. TimeOut 0.01
  582. Label3.Left = 3120
  583. Label4.Left = 6420
  584. TimeOut 0.01
  585. Label3.Left = 3220
  586. Label4.Left = 6320
  587. TimeOut 0.01
  588. Label3.Left = 3320
  589. Label4.Left = 6220
  590. TimeOut 0.01
  591. Label3.Left = 3420
  592. Label4.Left = 6120
  593. TimeOut 0.01
  594. Label3.Left = 3520
  595. Label4.Left = 6020
  596. TimeOut 0.01
  597. Label3.Left = 3620
  598. Label4.Left = 5920
  599. TimeOut 0.01
  600. Label3.Left = 3720
  601. Label4.Left = 5820
  602. TimeOut 0.01
  603. Label3.Left = 3820
  604. Label4.Left = 5720
  605. TimeOut 0.01
  606. Label3.Left = 3920
  607. Label4.Left = 5620
  608. TimeOut 0.01
  609. Label3.Left = 4020
  610. Label4.Left = 5520
  611. TimeOut 0.01
  612. Label3.Left = 4120
  613. Label4.Left = 5420
  614. TimeOut 0.01
  615. Label3.Left = 4220
  616. Label4.Left = 5320
  617. TimeOut 0.01
  618. Label3.Left = 4320
  619. Label4.Left = 5220
  620. TimeOut 0.01
  621. Label3.Left = 4420
  622. Label4.Left = 5120
  623. TimeOut 0.01
  624. Label3.Left = 4520
  625. Label4.Left = 5020
  626. TimeOut 0.01
  627. Label3.Left = 4620
  628. Label4.Left = 4920
  629. TimeOut 0.01
  630. Label3.Left = 4720
  631. Label4.Left = 4820
  632. TimeOut 0.01
  633. Label3.Left = 4820
  634. Label4.Left = 4720
  635. TimeOut 0.01
  636. Label3.Left = 4920
  637. Label4.Left = 4620
  638. TimeOut 0.01
  639. Label3.Left = 5020
  640. Label4.Left = 4520
  641. TimeOut 0.01
  642. Label3.Left = 5120
  643. Label4.Left = 4420
  644. TimeOut 0.01
  645. Label3.Left = 5220
  646. Label4.Left = 4320
  647. TimeOut 0.01
  648. Label3.Left = 5320
  649. Label4.Left = 4220
  650. TimeOut 0.01
  651. Label3.Left = 5420
  652. Label4.Left = 4120
  653. TimeOut 0.01
  654. Label3.Left = 5520
  655. Label4.Left = 4020
  656. TimeOut 0.01
  657. Label3.Left = 5620
  658. Label4.Left = 3920
  659. TimeOut 0.01
  660. Label3.Left = 5720
  661. TimeOut 0.01
  662. Label3.Left = 5820
  663. TimeOut 0.01
  664. Label3.Left = 5920
  665. TimeOut 0.01
  666. Label3.Left = 6020
  667. TimeOut 0.01
  668. Label3.Left = 6120
  669. TimeOut 0.01
  670. Label3.ForeColor = &HC000&
  671. Label4.ForeColor = &HC000&
  672. '&H0080FFFF&
  673. '&H00000000&
  674. Label3.Top = 3620
  675. Label4.Top = 3620
  676. Me.BackColor = &H80FFFF
  677. TimeOut 0.01
  678. Label3.Top = 3520
  679. Label4.Top = 3520
  680. Me.BackColor = &H0&
  681. TimeOut 0.01
  682. Label3.Top = 3420
  683. Label4.Top = 3420
  684. Me.BackColor = &H80FFFF
  685. TimeOut 0.01
  686. Label3.Top = 3320
  687. Label4.Top = 3320
  688. Me.BackColor = &H0&
  689. TimeOut 0.01
  690. Label3.Top = 3220
  691. Label4.Top = 3220
  692. Me.BackColor = &H80FFFF
  693. TimeOut 0.01
  694. Label3.Top = 3120
  695. Label4.Top = 3120
  696. Me.BackColor = &H0&
  697. TimeOut 0.01
  698. Label3.Top = 2920
  699. Label4.Top = 2920
  700. Me.BackColor = &H80FFFF
  701. TimeOut 0.01
  702. Label3.Top = 2820
  703. Label4.Top = 2820
  704. Me.BackColor = &H0&
  705. TimeOut 0.01
  706. Label3.Top = 2720
  707. Label4.Top = 2720
  708. Me.BackColor = &H80FFFF
  709. TimeOut 0.01
  710. Label3.Top = 2620
  711. Label4.Top = 2620
  712. Me.BackColor = &H0&
  713. TimeOut 0.01
  714. Label3.Top = 2520
  715. Label4.Top = 2520
  716. Me.BackColor = &H80FFFF
  717. TimeOut 0.01
  718. Label3.Top = 2420
  719. Label4.Top = 2420
  720. Me.BackColor = &H0&
  721. TimeOut 0.01
  722. Label3.Top = 2320
  723. Label4.Top = 2320
  724. Me.BackColor = &H80FFFF
  725. TimeOut 0.01
  726. Label3.Top = 2220
  727. Label4.Top = 2220
  728. Me.BackColor = &H0&
  729. TimeOut 0.01
  730. Label3.Top = 2120
  731. Label4.Top = 2120
  732. Me.BackColor = &H80FFFF
  733. TimeOut 0.01
  734. Label3.Top = 1920
  735. Label4.Top = 1920
  736. Me.BackColor = &H0&
  737. TimeOut 0.01
  738. Label3.Top = 1820
  739. Label4.Top = 1820
  740. Me.BackColor = &H80FFFF
  741. TimeOut 0.01
  742. Label3.Top = 1720
  743. Label4.Top = 1720
  744. Me.BackColor = &H0&
  745. TimeOut 0.01
  746. Label3.Top = 1620
  747. Label4.Top = 1620
  748. Me.BackColor = &H80FFFF
  749. TimeOut 0.01
  750. Label3.Top = 1520
  751. Label4.Top = 1520
  752. Me.BackColor = &H0&
  753. TimeOut 0.01
  754. Label3.Top = 1420
  755. Label4.Top = 1420
  756. Me.BackColor = &H80FFFF
  757. TimeOut 0.01
  758. Label3.Top = 1320
  759. Label4.Top = 1320
  760. Me.BackColor = &H0&
  761. TimeOut 0.01
  762. Label3.Top = 1220
  763. Label4.Top = 1220
  764. Me.BackColor = &H80FFFF
  765. TimeOut 0.01
  766. Label3.Top = 1120
  767. Label4.Top = 1120
  768. Me.BackColor = &H0&
  769. TimeOut 0.01
  770. Label3.Top = 1020
  771. Label4.Top = 1020
  772. Me.BackColor = &H80FFFF
  773. TimeOut 0.01
  774. Label3.Top = 920
  775. Label4.Top = 920
  776. Me.BackColor = &H0&
  777. TimeOut 0.01
  778. Label3.Top = 820
  779. Label4.Top = 820
  780. Me.BackColor = &H80FFFF
  781. TimeOut 0.01
  782. Label3.Top = 720
  783. Label4.Top = 720
  784. Me.BackColor = &H0&
  785. TimeOut 0.01
  786. Label3.Top = 620
  787. Label4.Top = 620
  788. Me.BackColor = &H80FFFF
  789. TimeOut 0.01
  790. Label3.Top = 520
  791. Label4.Top = 520
  792. Me.BackColor = &H0&
  793. TimeOut 0.01
  794. Label3.Top = 420
  795. Label4.Top = 420
  796. Me.BackColor = &H80FFFF
  797. TimeOut 0.01
  798. Label3.Top = 320
  799. Label4.Top = 320
  800. Me.BackColor = &H0&
  801. TimeOut 0.01
  802. Label3.Top = 220
  803. Label4.Top = 220
  804. Me.BackColor = &H80FFFF
  805. TimeOut 0.01
  806. Label3.Top = 120
  807. Label4.Top = 120
  808. Me.BackColor = &H0&
  809. TimeOut 0.01
  810. Label3.Top = 20
  811. Label4.Top = 20
  812. Me.BackColor = &H80FFFF
  813. TimeOut 0.01
  814. Label3.Top = 0
  815. Label4.Top = 0
  816. Me.BackColor = &H0&
  817. TimeOut 0.01
  818. Label3.Top = -20
  819. Label4.Top = -20
  820. Me.BackColor = &H80FFFF
  821. TimeOut 0.01
  822. Label3.Top = -120
  823. Label4.Top = -120
  824. Me.BackColor = &H0&
  825. TimeOut 0.01
  826. Label3.Top = -220
  827. Label4.Top = -220
  828. Me.BackColor = &H80FFFF
  829. TimeOut 0.01
  830. Label3.Top = -320
  831. Label4.Top = -320
  832. Me.BackColor = &H0&
  833. TimeOut 0.01
  834. Label3.Top = -220
  835. Label4.Top = -220
  836. Me.BackColor = &H80FFFF
  837. TimeOut 0.01
  838. Label3.Top = -320
  839. Label4.Top = -320
  840. Me.BackColor = &H0&
  841. TimeOut 0.01
  842. Label3.Top = -420
  843. Label4.Top = -420
  844. Me.BackColor = &H80FFFF
  845. TimeOut 0.01
  846. Label3.Top = -520
  847. Label4.Top = -520
  848. Me.BackColor = &H0&
  849. TimeOut 0.01
  850. Label3.Top = -620
  851. Label4.Top = -620
  852. Me.BackColor = &H80FFFF
  853. TimeOut 0.01
  854. Label3.Top = -720
  855. Label4.Top = -720
  856. Me.BackColor = &H0&
  857. TimeOut 0.01
  858. Label3.Top = -820
  859. Label4.Top = -820
  860. Me.BackColor = &H80FFFF
  861. TimeOut 0.01
  862. Label3.Top = -920
  863. Label4.Top = -920
  864. Me.BackColor = &H0&
  865. TimeOut 0.01
  866. Label3.Top = -1020
  867. Label4.Top = -1020
  868. Me.BackColor = &H80FFFF
  869. TimeOut 0.01
  870. Label3.Top = -1120
  871. Label4.Top = -1120
  872. Me.BackColor = &H0&
  873. TimeOut 0.01
  874. Label3.Top = -1220
  875. Label4.Top = -1220
  876. Me.BackColor = &H80FFFF
  877. TimeOut 0.01
  878. Label3.Top = -1320
  879. Label4.Top = -1320
  880. Me.BackColor = &H0&
  881. TimeOut 0.01
  882. Label3.Top = -1420
  883. Label4.Top = -1420
  884. Me.BackColor = &H80FFFF
  885. TimeOut 0.01
  886. Label3.Top = -1520
  887. Label4.Top = -1520
  888. Me.BackColor = &H0&
  889. TimeOut 0.01
  890. Me.BackColor = &H0&
  891. Timer3.Enabled = False
  892. Timer4.Enabled = True
  893. End Sub
  894. Private Sub Timer4_Timer()
  895. Label3.Top = -1220
  896. Label4.Top = -1220
  897. TimeOut 0.01
  898. Label3.Top = -920
  899. Label4.Top = -920
  900. TimeOut 0.01
  901. Label3.Top = -620
  902. Label4.Top = -620
  903. TimeOut 0.01
  904. Label3.Top = -320
  905. Label4.Top = -320
  906. TimeOut 0.01
  907. Label3.Top = -20
  908. Label4.Top = -20
  909. TimeOut 0.01
  910. Label3.Top = 320
  911. Label4.Top = 320
  912. TimeOut 0.01
  913. Label3.Top = 620
  914. Label4.Top = 620
  915. TimeOut 0.01
  916. Label3.Top = 920
  917. Label4.Top = 920
  918. TimeOut 0.01
  919. Label3.Top = 1220
  920. Label4.Top = 1220
  921. TimeOut 0.01
  922. Label3.Top = 1520
  923. Label4.Top = 1520
  924. TimeOut 0.01
  925. Label3.Top = 1820
  926. Label4.Top = 1820
  927. TimeOut 0.01
  928. Label3.Top = 2120
  929. Label4.Top = 2120
  930. TimeOut 0.01
  931. Label3.Top = 2420
  932. Label4.Top = 2420
  933. TimeOut 0.01
  934. Label3.Top = 2720
  935. Label4.Top = 2720
  936. TimeOut 0.01
  937. Label3.Top = 3020
  938. Label4.Top = 3020
  939. TimeOut 0.01
  940. Label3.Top = 3320
  941. Label4.Top = 3320
  942. TimeOut 0.01
  943. Label3.Top = 3620
  944. Label4.Top = 3620
  945. TimeOut 0.01
  946. Label3.Top = 3920
  947. Label4.Top = 3920
  948. TimeOut 0.01
  949. Label3.Top = 4220
  950. Label4.Top = 4220
  951. TimeOut 0.01
  952. Label3.Top = 4520
  953. Label4.Top = 4520
  954. TimeOut 0.01
  955. Label7.Visible = True
  956. Label7.FontSize = 10
  957. TimeOut 0.01
  958. Label7.FontSize = 20
  959. TimeOut 0.01
  960. Label7.FontSize = 30
  961. TimeOut 0.01
  962. Label7.FontSize = 40
  963. TimeOut 0.01
  964. Label7.FontSize = 50
  965. TimeOut 0.01
  966. Label7.FontSize = 60
  967. TimeOut 0.01
  968. Label7.FontSize = 70
  969. TimeOut 0.01
  970. Label7.FontSize = 80
  971. TimeOut 0.01
  972. Label7.FontSize = 90
  973. TimeOut 0.01
  974. Label7.FontSize = 100
  975. TimeOut 0.01
  976. Label7.FontSize = 110
  977. TimeOut 0.01
  978. Label7.FontSize = 120
  979. TimeOut 0.01
  980. Label7.FontSize = 130
  981. TimeOut 0.01
  982. Label7.FontSize = 140
  983. TimeOut 0.01
  984. Label7.FontSize = 150
  985. TimeOut 0.01
  986. Label7.FontSize = 160
  987. TimeOut 0.01
  988. Label7.FontSize = 170
  989. TimeOut 0.01
  990. Label7.FontSize = 180
  991. TimeOut 0.01
  992. Label7.FontSize = 190
  993. TimeOut 0.01
  994. Label7.FontSize = 200
  995. TimeOut 0.01
  996. Label7.FontSize = 210
  997. TimeOut 0.01
  998. Label7.FontSize = 220
  999. TimeOut 0.01
  1000. Label7.FontSize = 230
  1001. TimeOut 0.01
  1002. Label7.FontSize = 240
  1003. TimeOut 0.01
  1004. Label7.FontSize = 250
  1005. TimeOut 0.01
  1006. Label7.FontSize = 260
  1007. TimeOut 0.01
  1008. Label7.FontSize = 270
  1009. TimeOut 0.01
  1010. Label7.FontSize = 280
  1011. TimeOut 0.01
  1012. Label7.FontSize = 290
  1013. TimeOut 0.01
  1014. Label7.FontSize = 300
  1015. TimeOut 0.01
  1016. Label7.FontSize = 310
  1017. TimeOut 0.01
  1018. Label7.FontSize = 320
  1019. TimeOut 0.01
  1020. Label7.FontSize = 330
  1021. TimeOut 0.01
  1022. Label7.FontSize = 340
  1023. TimeOut 0.01
  1024. Label7.FontSize = 350
  1025. TimeOut 0.01
  1026. Label7.FontSize = 360
  1027. TimeOut 0.01
  1028. Label7.Visible = False
  1029. Label3.Visible = False
  1030. Label4.Visible = False
  1031. Timer5.Enabled = True
  1032. Timer4.Enabled = False
  1033. End Sub
  1034. Private Sub Timer5_Timer()
  1035. '&H000000C0&
  1036. '&H0000C000&
  1037. Label5.Visible = True
  1038. Label6.Visible = True
  1039. Label8.Visible = True
  1040. TimeOut 0.5
  1041. Label8.Visible = False
  1042. Label5.Visible = False
  1043. Label6.Visible = False
  1044. Timer6.Enabled = True
  1045. Timer5.Enabled = False
  1046. End Sub
  1047. Private Sub Timer6_Timer()
  1048. Image3.Visible = True
  1049. Command1.Visible = True
  1050. Command1.Width = 100
  1051. TimeOut 0.01
  1052. Command1.Width = 200
  1053. TimeOut 0.01
  1054. Command1.Width = 300
  1055. TimeOut 0.01
  1056. Command1.Width = 400
  1057. TimeOut 0.01
  1058. Command1.Width = 500
  1059. TimeOut 0.01
  1060. Command1.Width = 600
  1061. TimeOut 0.01
  1062. Command1.Width = 700
  1063. TimeOut 0.01
  1064. Command1.Width = 800
  1065. TimeOut 0.01
  1066. Command1.Width = 900
  1067. TimeOut 0.01
  1068. Command1.Width = 1000
  1069. TimeOut 0.01
  1070. Command1.Width = 1100
  1071. TimeOut 0.01
  1072. Command1.Width = 1200
  1073. TimeOut 0.01
  1074. Command1.Width = 1300
  1075. TimeOut 0.01
  1076. Command1.Width = 1400
  1077. TimeOut 0.01
  1078. Command1.Width = 1500
  1079. TimeOut 0.01
  1080. Command1.Width = 1600
  1081. TimeOut 0.01
  1082. Command1.Width = 1700
  1083. TimeOut 0.01
  1084. Command1.Width = 1800
  1085. TimeOut 0.01
  1086. Command1.Width = 1900
  1087. TimeOut 0.01
  1088. Command1.Width = 2000
  1089. TimeOut 0.01
  1090. Command1.Width = 2100
  1091. TimeOut 0.01
  1092. Command1.Width = 2200
  1093. TimeOut 0.01
  1094. Command1.Width = 2300
  1095. TimeOut 0.01
  1096. Timer6.Enabled = False
  1097. End Sub
  1098.